home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / src-16f.lha / code / comutil.lisp < prev    next >
Encoding:
Text File  |  1992-05-30  |  1.4 KB  |  43 lines
  1. ;;; -*- Package: User -*-
  2. ;;;
  3. ;;; **********************************************************************
  4. ;;; This code was written as part of the CMU Common Lisp project at
  5. ;;; Carnegie Mellon University, and has been placed in the public domain.
  6. ;;; If you want to use this code or any part of CMU Common Lisp, please contact
  7. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
  8. ;;;
  9. (ext:file-comment
  10.   "$Header: comutil.lisp,v 1.2 91/02/08 13:31:33 ram Exp $")
  11. ;;;
  12. ;;; **********************************************************************
  13. ;;;
  14. ;;; This is a file loaded into a lisp to compile all the matchmaker interfaces.
  15. ;;;
  16. (in-package "USER")
  17.  
  18. (when (probe-file "icode:lossage.log") (delete-file "icode:lossage.log"))
  19. (mapc #'delete-file (directory "icode:*.fasl"))
  20.  
  21. (defun com (name)
  22.   (declare (special *alien-eval-when*))
  23.   (with-open-file (f "icode:lossage.log"
  24.              :direction :output
  25.              :if-exists :append
  26.              :if-does-not-exist :create)
  27.     (let ((*standard-output* (make-broadcast-stream *standard-output* f)))
  28.       (let ((*alien-eval-when* '(compile load)))
  29.     (compile-file (concatenate 'string "icode:" name "defs.lisp")
  30.               :error-file nil))
  31.  
  32.       (let ((*alien-eval-when* '(eval)))
  33.     (load (concatenate 'string "icode:" name "msgdefs.lisp")))
  34.       
  35.       (let ((*alien-eval-when* '(compile)))
  36.     (compile-file (concatenate 'string "icode:" name "user.lisp")
  37.               :error-file nil)))))
  38.  
  39. (setq clc::*alien-fold* t)
  40.  
  41. (com "mach")
  42. (com "netname")
  43.